Visual Basic Toolbox

home *** CD-ROM | disk | FTP | other *** search

/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / database / gentyp / gentypes.frm (.txt) next >

Wrap

Visual Basic Form | 1993-07-21 | 9.1 KB | 329 lines

Form1 &Proceed Form15 Data1% Data1 prtrep "Generate report <Databasename>.LST tabname Working On Table: GenTypes -Output VB 3.0 TYPE statements to GENTYPES.LST Command2 &Quit &Proceed Text1 Label1 Data Base to print: Form_Load Database TableDefs? Fields Command1_Click Command2_Click text1~ Text> printerM NameN Connect Transactions; CollatingOrder UpdateableS QueryTimeout Count Attributes Windows+ initialization" files Within* Visual Basic Article Q75639 Summary thereU several Microsoft* functionsl manipulate information filef GetProfileIntd GetPrivateProfileInt GetProfileStringo GetPrivateProfileString allow program[ retrieve fromH based application WritePrivateProfileString- WriteProfileStringP Create} items contain defines environment Examples whichx commonly found subdirectory applications stored these configureB themselves needs preferences Description review comes composed least_ contents" following- [Application name]+ keyname ValueY fourE calls particular" dependsQ whether_ wantM obtainU numericali GetProfile family standard shouldw GetPrivateProfile? specify formaly arguments/ accepted describedn farthera below modify search under match addsj user9 profileL entry containingx specifiedj replaceV include statementsJ module| GeneralH declarations section lpKeyNameI nDefault) lpDefault lpReturnedString nSize lpString lpAppName lpFileName Note7 statement followsz Argument appears Specifies_ default givenP cannot PointsC names searches? directory buffer receives! character maximumI Number characters including lastr copied contains steps necessary sampleg uses& created; shellsb Calculator demonstrates editor example Notepad suppliedz Save NET8 NetPaths WordProcessory WINWORD indicated after above correctw hardp drive Starte called Form1 button Command1 Declaration, appear lpReturnStringg FileError Valid Succ{ dupstr DateCreated LastUpdate LastUpdatesW LastUpdated SourceTableName BitsG ABits SourceField SourceTable FontSize GenTypesG length FontName Updatable^ OrdinalPosition CurrentX< CurrentY disable! Enabled ETrap prt_Click DB_SYSTEMOBJECT SkipTd screen Height Widthq ScaleHeight ScaleWidth prtrep tabname ListSet snapshotH Table QueryDef definition changed TableType identifying possible values RecordCount records DB_QUERYDEF characteristics\ Attribute equalo tnames TableDef& Data1 RecordSource DatabaseNameg Recordset Text1_Change Data1_ValidateR Action whoops prt_err DynaSet Tableded DB_TABLE Indexes idxcnt Primary Unique Index RecordSourcec% DB_QUERY Command2_Click Form_Load prt_Click on error GoTo ETrap Please enter a data base name... Database : not found on disk... Copy Table info to td(" gentypes.lst 'Structures from data base: as of: Listing of data base: Date: Time: Source of data: Connect string: Transactions supported? Sort Order: Updateable? Query time-out (secs): Number of tables: Attributes On Error Resume Next Data1.recordset.QueryTimeout = 1 qq = 1 qq = 1 On Error GoTo ETrap Table Name: Updateable?: Date Created: DateCreated Last Updated: LastUpdated Table Type: TableType QUERYDEF TableType TABLE Index count: Index name: fields: primary: unique: UNKNOWN Record Count: RecordCount Attributes: Attributes Fields: Source Field Source Table Type td_ Working on table: Integer Currency Single Double String * UNKNOWN: String String END TYPE data1.Close Move to next record.d *** END OF REPORT *** Printing completed! An error occurred! Code was: